home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9105.d64
/
opaque dungeons
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
1 FORT=0TO63:POKE3904+T,0:NEXT:POKE3904,4:POKE3907,4:POKE2041,60:POKE2040,61
2 POKE53275,255:POKE53280,0:POKE53281,0:FORT=0TO63:READA:POKE3840+T,A:NEXT
3 PRINT"[147] OPAQUE DUNGEONS ...":PRINT"[159] (C) STIX 1991":POKE198,0:WAIT198,1
4 DATA ,255,,3,255,192,7,255,224,15,255,240,31,255,248,31,255,248,63,255,252
5 DATA 63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63
6 DATA 255,252,31,255,248,31,255,248,15,255,240,7,255,224,3,255,192,,255,,,,,
7 M=43000:V=53248:POKEV+39,1:POKEV+40,6
8 POKEV+21,3:X(0)=87:Y(0)=147:X(1)=80:Y(1)=138:FORT=1TO10:A$(T)="":NEXT
9 TI$="000000":IFM=50000THENPRINT" ALL DUNGEONS COMPLETED":POKEV+21,0:RUN
10 FORT=1TO10:FORU=0TO10:A$(T)=A$(T)+CHR$(205+(PEEK(M+10*T+U)AND1)):NEXT:NEXT
11 PRINT"[144][147]":FORT=0TO10:PRINT" "A$(T):NEXT:PRINT"[156]"SPC(16)"L"M/1000-42"[150]"S
12 PRINT"[151] [146] ":FORT=0TO12:PRINT" [146] [146]":NEXT
13 PRINT" ":POKE1306,160:POKE1318,160:POKE1266,160:POKE1278,160
14 A=PEEK(56320):B=SGN(AAND16):Y=Y(0):X=X(0)
15 Y(B)=Y(B)-(1+B)*SGN(AAND2)*1.5+(1+B)*(AAND1)*1.5
16 X(B)=X(B)-(1+B)*SGN(AAND8)*1.5+(1+B)*SGN(AAND4)*1.5
17 POKEV,X(0):POKEV+1,Y(0):POKEV+2,X(1):POKEV+3,Y(1)
18 IF(PEEK(V+31)AND1)THENY(0)=Y:X(0)=X:GOTO17
19 IFPEEK(V+1)<55THENPRINT" YOU FOUND THE WAY":M=M+1000:S=S+7200-TI:GOTO8
20 PRINT""SPC(30)TI$:GOTO 14